(define env
  `((lib-dire . ,(list "E:/project/private/roam/sicp/g-point"
                       "e:/project/private/roam/sicp/slib/chez-json"
                       "e:/project/private/roam/sicp/slib/irregex"
                       "e:/project/private/roam/sicp/slib/chez-srfi"))
    (lib-ext . ,(list ".chezscheme.sls" ".sls" ".ss" ".scm"))))

(define (init-system)
  (begin
    (library-directories (cdr (assq 'lib-dire env)))
    (library-extensions (cdr (assq 'lib-ext env)))
    (compile-imported-libraries #f)
    (library-requirements-options invoke)
    #t))

(init-system)
